inherited Frmtd_Trader_Edit: TFrmtd_Trader_Edit
  Left = 402
  Top = 173
  BorderIcons = [biSystemMenu]
  Caption = #23458#25143#36164#26009#65288#32534#30721#19981#33021#19982#20379#24212#21830#32534#30721#30456#21516#65289
  ClientHeight = 473
  ClientWidth = 902
  FormStyle = fsStayOnTop
  ExplicitWidth = 920
  ExplicitHeight = 519
  PixelsPerInch = 119
  TextHeight = 12
  inherited pnlBottom: TPanel
    Top = 413
    Width = 902
    TabOrder = 4
    ExplicitTop = 413
    ExplicitWidth = 742
    DesignSize = (
      902
      60)
    inherited Bevel1: TBevel
      Width = 902
      ExplicitWidth = 649
    end
    inherited btnOK: TBitBtn
      Left = 710
      Top = 16
      ExplicitLeft = 550
      ExplicitTop = 16
    end
    inherited btnCancel: TBitBtn
      Left = 805
      Top = 16
      ExplicitLeft = 645
      ExplicitTop = 16
    end
    inherited btnContinue: TBitBtn
      Top = 16
      ExplicitTop = 16
    end
    inherited btnPri: TBitBtn
      Top = 16
      ExplicitTop = 16
    end
    inherited btnNext: TBitBtn
      Top = 16
      ExplicitTop = 16
    end
  end
  object LblName: TcxLabel [1]
    Left = 12
    Top = 8
    AutoSize = False
    Caption = #21333#20301#31616#31216#65306
    ParentFont = False
    Style.Font.Charset = GB2312_CHARSET
    Style.Font.Color = clBlue
    Style.Font.Height = -12
    Style.Font.Name = #23435#20307
    Style.Font.Style = []
    Style.IsFontAssigned = True
    Transparent = True
    Height = 16
    Width = 59
  end
  object EdtName: TcxDBTextEdit [2]
    Left = 69
    Top = 6
    DataBinding.DataField = 'Name'
    DataBinding.DataSource = MainDataSource
    TabOrder = 0
    Width = 260
  end
  object cxLabel2: TcxLabel [3]
    Left = 347
    Top = 8
    AutoSize = False
    Caption = #21333#20301#32534#30721#65306
    ParentFont = False
    Style.Font.Charset = GB2312_CHARSET
    Style.Font.Color = clBlue
    Style.Font.Height = -12
    Style.Font.Name = #23435#20307
    Style.Font.Style = []
    Style.IsFontAssigned = True
    Transparent = True
    Height = 16
    Width = 60
  end
  object EdtCode: TcxDBTextEdit [4]
    Left = 405
    Top = 6
    DataBinding.DataField = 'Code'
    DataBinding.DataSource = MainDataSource
    TabOrder = 7
    Width = 121
  end
  object pgcTrader: TcxPageControl [5]
    Left = 15
    Top = 33
    Width = 870
    Height = 370
    Anchors = [akLeft, akTop, akRight]
    TabOrder = 8
    Properties.ActivePage = TSBaseInfo
    Properties.CustomButtons.Buttons = <>
    Properties.ShowFrame = True
    Properties.Style = 9
    LookAndFeel.Kind = lfStandard
    ExplicitWidth = 710
    ClientRectBottom = 369
    ClientRectLeft = 1
    ClientRectRight = 869
    ClientRectTop = 19
    object TSBaseInfo: TcxTabSheet
      Caption = #22522#26412#20449#24687
      ImageIndex = 0
      ExplicitWidth = 708
      object dynlblAreaId: TcxLabel
        Left = 8
        Top = 13
        AutoSize = False
        Caption = #25152#22312#22320#21306#65306
        Transparent = True
        Height = 16
        Width = 57
      end
      object LlbFullName: TcxLabel
        Left = 8
        Top = 42
        AutoSize = False
        Caption = #20840'    '#31216#65306
        Transparent = True
        Height = 16
        Width = 57
      end
      object EdtFullName: TcxDBTextEdit
        Left = 69
        Top = 39
        DataBinding.DataField = 'FullName'
        DataBinding.DataSource = MainDataSource
        TabOrder = 1
        Width = 201
      end
      object EdtDoubleIDF: TcxDBCheckBox
        Left = 405
        Top = 30
        Caption = #21516#26102#26680#31639#20379#24212#21830
        DataBinding.DataField = 'doubleIdf'
        DataBinding.DataSource = MainDataSource
        Properties.Alignment = taRightJustify
        Properties.NullStyle = nssUnchecked
        TabOrder = 20
        Transparent = True
      end
      object dynlblDeptId: TcxLabel
        Left = 8
        Top = 70
        AutoSize = False
        Caption = #36319#36394#37096#38376#65306
        Transparent = True
        Height = 16
        Width = 57
      end
      object dynedtDeptId: TcxDBLookupComboBox
        Tag = 1
        Left = 69
        Top = 67
        DataBinding.DataField = 'DeptId'
        DataBinding.DataSource = MainDataSource
        Properties.ListColumns = <>
        TabOrder = 2
        Width = 201
      end
      object LblLev: TcxLabel
        Left = 8
        Top = 298
        AutoSize = False
        Caption = #23458#25143#31561#32423#65306
        Transparent = True
        Height = 16
        Width = 57
      end
      object cxLabel6: TcxLabel
        Left = 8
        Top = 98
        AutoSize = False
        Caption = #19994#21153#20154#21592#65306
        Transparent = True
        Height = 16
        Width = 57
      end
      object EdtEmpID: TcxDBLookupComboBox
        Tag = 4
        Left = 69
        Top = 96
        DataBinding.DataField = 'EmpId'
        DataBinding.DataSource = MainDataSource
        Properties.ListColumns = <>
        TabOrder = 3
        Width = 201
      end
      object LblTraderType: TcxLabel
        Left = 293
        Top = 126
        AutoSize = False
        Caption = #24448#26469#31867#22411#65306
        Transparent = True
        Height = 16
        Width = 57
      end
      object LblLegalRep: TcxLabel
        Left = 8
        Top = 127
        AutoSize = False
        Caption = #27861#20154#20195#34920#65306
        Transparent = True
        Height = 16
        Width = 57
      end
      object EdtLegalRep: TcxDBTextEdit
        Left = 69
        Top = 124
        DataBinding.DataField = 'LegalRep'
        DataBinding.DataSource = MainDataSource
        TabOrder = 4
        Width = 201
      end
      object dynlblTransportType: TcxLabel
        Left = 293
        Top = 155
        AutoSize = False
        Caption = #36816#36755#26041#24335#65306
        Transparent = True
        Height = 16
        Width = 57
      end
      object dynEdtTransportType: TcxDBLookupComboBox
        Tag = 18
        Left = 354
        Top = 153
        DataBinding.DataField = 'TransportType'
        DataBinding.DataSource = MainDataSource
        Properties.ListColumns = <>
        TabOrder = 12
        Width = 201
      end
      object dynLblmobile: TcxLabel
        Left = 8
        Top = 156
        AutoSize = False
        Caption = #32852#31995#25163#26426#65306
        Transparent = True
        Height = 16
        Width = 57
      end
      object dynLblContactor: TcxLabel
        Left = 293
        Top = 184
        AutoSize = False
        Caption = #32852' '#31995' '#20154#65306
        Transparent = True
        Height = 16
        Width = 57
      end
      object dynEdtContacter: TcxDBTextEdit
        Left = 354
        Top = 182
        DataBinding.DataField = 'Contacter'
        DataBinding.DataSource = MainDataSource
        TabOrder = 13
        Width = 201
      end
      object dynLblOfficetel: TcxLabel
        Left = 8
        Top = 184
        AutoSize = False
        Caption = #32852#31995#30005#35805#65306
        Transparent = True
        Height = 16
        Width = 57
      end
      object dynLblothertel: TcxLabel
        Left = 293
        Top = 212
        AutoSize = False
        Caption = #22791#29992#30005#35805#65306
        Transparent = True
        Height = 16
        Width = 57
      end
      object dynLblZip: TcxLabel
        Left = 8
        Top = 212
        AutoSize = False
        Caption = #37038'    '#32534#65306
        Transparent = True
        Height = 16
        Width = 57
      end
      object dynLblFax: TcxLabel
        Left = 293
        Top = 241
        AutoSize = False
        Caption = #20256'    '#30495#65306
        Transparent = True
        Height = 16
        Width = 57
      end
      object dynlblTargetAddr: TcxLabel
        Left = 8
        Top = 241
        AutoSize = False
        Caption = #36865#36135#22320#22336#65306
        Transparent = True
        Height = 16
        Width = 57
      end
      object dynEdtTargetAddr: TcxDBTextEdit
        Left = 69
        Top = 239
        DataBinding.DataField = 'TargetAddr'
        DataBinding.DataSource = MainDataSource
        TabOrder = 8
        Width = 201
      end
      object dynLblAddress: TcxLabel
        Left = 293
        Top = 270
        AutoSize = False
        Caption = #36890#35759#22320#22336#65306
        Transparent = True
        Height = 16
        Width = 57
      end
      object dynEdtAddress: TcxDBTextEdit
        Left = 354
        Top = 268
        DataBinding.DataField = 'Address'
        DataBinding.DataSource = MainDataSource
        TabOrder = 16
        Width = 201
      end
      object LblSpeedSymbol: TcxLabel
        Left = 8
        Top = 270
        AutoSize = False
        Caption = #21161' '#35760' '#30721#65306
        Transparent = True
        Height = 16
        Width = 57
      end
      object EdtSpeedSymbol: TcxDBTextEdit
        Left = 69
        Top = 268
        DataBinding.DataField = 'Speed'
        DataBinding.DataSource = MainDataSource
        TabOrder = 9
        Width = 201
      end
      object LblRateTax: TcxLabel
        Left = 293
        Top = 298
        AutoSize = False
        Caption = #40664#35748#31246#29575#65306
        Transparent = True
        Visible = False
        Height = 16
        Width = 57
      end
      object EdtRateTax: TcxDBTextEdit
        Left = 354
        Top = 296
        DataBinding.DataField = 'TaxRate'
        DataBinding.DataSource = MainDataSource
        TabOrder = 17
        Visible = False
        OnKeyPress = EdtRateTaxKeyPress
        Width = 201
      end
      object cxGroupBox1: TcxGroupBox
        Left = 293
        Top = 11
        Enabled = False
        TabOrder = 38
        Height = 82
        Width = 105
        object rbIsClient: TcxRadioButton
          Left = 24
          Top = 13
          Width = 60
          Height = 17
          Caption = #20379#24212#21830
          TabOrder = 0
          Transparent = True
        end
        object rbIsVendor: TcxRadioButton
          Left = 24
          Top = 36
          Width = 60
          Height = 17
          Caption = #23458#25143
          Checked = True
          TabOrder = 1
          TabStop = True
          Transparent = True
        end
      end
      object EdtIsCash: TcxDBCheckBox
        Left = 405
        Top = 10
        Caption = #20165#38480#29616#25910#29616#20184
        DataBinding.DataField = 'IsCash'
        DataBinding.DataSource = MainDataSource
        Properties.Alignment = taRightJustify
        Properties.NullStyle = nssUnchecked
        TabOrder = 19
        Transparent = True
      end
      object EdtLev: TcxDBLookupComboBox
        Tag = 21
        Left = 69
        Top = 296
        DataBinding.DataField = 'lev'
        DataBinding.DataSource = MainDataSource
        Properties.ListColumns = <>
        TabOrder = 10
        Width = 202
      end
      object dynedtOfficeTel: TcxDBTextEdit
        Left = 69
        Top = 182
        DataBinding.DataField = 'officeTel'
        DataBinding.DataSource = MainDataSource
        TabOrder = 6
        Width = 201
      end
      object dynedtMobile: TcxDBTextEdit
        Left = 69
        Top = 153
        DataBinding.DataField = 'mobile'
        DataBinding.DataSource = MainDataSource
        TabOrder = 5
        Width = 201
      end
      object dynedtZip: TcxDBTextEdit
        Left = 69
        Top = 210
        DataBinding.DataField = 'Zip'
        DataBinding.DataSource = MainDataSource
        TabOrder = 7
        Width = 201
      end
      object dynedtOtherTel: TcxDBTextEdit
        Left = 354
        Top = 210
        DataBinding.DataField = 'otherTel'
        DataBinding.DataSource = MainDataSource
        TabOrder = 14
        Width = 201
      end
      object dynedtFax: TcxDBTextEdit
        Left = 354
        Top = 239
        DataBinding.DataField = 'Fax'
        DataBinding.DataSource = MainDataSource
        TabOrder = 15
        Width = 201
      end
      object edtShare: TcxDBCheckBox
        Left = 405
        Top = 50
        Caption = #20998#25903#20849#20139
        DataBinding.DataField = 'Share'
        DataBinding.DataSource = MainDataSource
        Properties.Alignment = taRightJustify
        Properties.NullStyle = nssUnchecked
        TabOrder = 39
        Transparent = True
      end
      object edtTraderType: TcxDBLookupComboBox
        Tag = 38
        Left = 354
        Top = 124
        DataBinding.DataField = 'TraderTypeId'
        DataBinding.DataSource = MainDataSource
        Properties.ListColumns = <>
        TabOrder = 11
        Width = 202
      end
      object dynedtAreaId: TcxDBLookupComboBox
        Tag = 37
        Left = 69
        Top = 10
        DataBinding.DataField = 'AreaId'
        DataBinding.DataSource = MainDataSource
        Properties.ListColumns = <>
        TabOrder = 0
        Width = 202
      end
      object chkthirdtrade: TcxDBCheckBox
        Left = 405
        Top = 70
        Caption = #20132#26131#31532#19977#26041
        DataBinding.DataField = 'thirdtrade'
        DataBinding.DataSource = MainDataSource
        Properties.Alignment = taRightJustify
        Properties.NullStyle = nssUnchecked
        TabOrder = 40
        Transparent = True
      end
      object lblUsedname: TcxLabel
        Left = 8
        Top = 326
        AutoSize = False
        Caption = #26366' '#29992' '#21517#65306
        Transparent = True
        Height = 16
        Width = 57
      end
      object edtUsedname: TcxDBTextEdit
        Left = 69
        Top = 324
        DataBinding.DataField = 'usedname'
        DataBinding.DataSource = MainDataSource
        TabOrder = 42
        OnKeyPress = EdtRateTaxKeyPress
        Width = 486
      end
    end
    object TSOtherInfo: TcxTabSheet
      Caption = #36130#21153#20449#24687
      ImageIndex = 1
      ExplicitWidth = 708
      object dynlblsursubid: TLabel
        Left = 308
        Top = 156
        Width = 60
        Height = 12
        Caption = #39044#25910#31185#30446#65306
        Transparent = True
      end
      object dynlblSubjectid: TLabel
        Left = 308
        Top = 185
        Width = 60
        Height = 12
        Caption = #24212#25910#31185#30446#65306
        Transparent = True
      end
      object LblBank: TcxLabel
        Left = 8
        Top = 12
        AutoSize = False
        Caption = #24320#25143#38134#34892#65306
        Transparent = True
        Height = 16
        Width = 57
      end
      object EdtBank: TcxDBTextEdit
        Left = 69
        Top = 8
        DataBinding.DataField = 'Bank'
        DataBinding.DataSource = MainDataSource
        TabOrder = 0
        Width = 497
      end
      object LblBankAccNo: TcxLabel
        Left = 8
        Top = 38
        AutoSize = False
        Caption = #24320#25143#24080#21495#65306
        Transparent = True
        Height = 16
        Width = 57
      end
      object EdtBankAccNo: TcxDBTextEdit
        Left = 69
        Top = 36
        DataBinding.DataField = 'BankAccNo'
        DataBinding.DataSource = MainDataSource
        TabOrder = 2
        OnKeyPress = EdpPhoneKeyPress
        Width = 201
      end
      object LblTaxNO: TcxLabel
        Left = 305
        Top = 38
        AutoSize = False
        Caption = #32435' '#31246' '#21495#65306
        Transparent = True
        Height = 16
        Width = 57
      end
      object EdtTaxNo: TcxDBTextEdit
        Left = 366
        Top = 36
        DataBinding.DataField = 'TaxNo'
        DataBinding.DataSource = MainDataSource
        TabOrder = 3
        Width = 200
      end
      object dynLblCreditDay: TcxLabel
        Left = 8
        Top = 67
        AutoSize = False
        Caption = #20449#29992#22825#25968#65306
        Transparent = True
        Height = 16
        Width = 57
      end
      object dynEdtCreditDay: TcxDBTextEdit
        Left = 69
        Top = 65
        Hint = #20449#29992#22825#25968#20026'30'#24182#35774#32622#26376#32467#26085#26399#21363#20026#21551#29992#26376#32467
        DataBinding.DataField = 'CreditDay'
        DataBinding.DataSource = MainDataSource
        TabOrder = 6
        OnKeyPress = EdpPhoneKeyPress
        Width = 201
      end
      object dynLblCredit: TcxLabel
        Left = 305
        Top = 67
        AutoSize = False
        Caption = #20449#29992#37329#39069#65306
        Transparent = True
        Height = 16
        Width = 57
      end
      object LblE_Mail: TcxLabel
        Left = 20
        Top = 95
        AutoSize = False
        Caption = 'E_Mail'#65306
        Properties.Alignment.Horz = taLeftJustify
        Transparent = True
        Height = 17
        Width = 45
      end
      object EdtE_Mail: TcxDBTextEdit
        Left = 69
        Top = 93
        DataBinding.DataField = 'EMail'
        DataBinding.DataSource = MainDataSource
        TabOrder = 10
        Width = 201
      end
      object dynlblWebAddr: TcxLabel
        Left = 32
        Top = 126
        AutoSize = False
        Caption = #32593#22336#65306
        Transparent = True
        Height = 16
        Width = 33
      end
      object dynedtWebAddr: TcxDBTextEdit
        Left = 69
        Top = 124
        DataBinding.DataField = 'WebAddr'
        DataBinding.DataSource = MainDataSource
        TabOrder = 14
        Width = 201
      end
      object LblRemark: TcxLabel
        Left = 8
        Top = 274
        AutoSize = False
        Caption = #22791'    '#27880#65306
        Transparent = True
        Height = 16
        Width = 57
      end
      object LblBalance: TcxLabel
        Left = 8
        Top = 182
        AutoSize = False
        Caption = #24212' '#25910' '#27454#65306
        Transparent = True
        Height = 16
        Width = 57
      end
      object EdtBalAmt: TcxDBTextEdit
        Left = 69
        Top = 180
        DataBinding.DataField = 'BalAmt'
        DataBinding.DataSource = MainDataSource
        ParentColor = True
        Properties.ReadOnly = True
        TabOrder = 21
        Width = 201
      end
      object dynLblBalanceid: TcxLabel
        Left = 281
        Top = 126
        AutoSize = False
        Caption = #40664#35748#32467#31639#26041#24335#65306
        Transparent = True
        Height = 16
        Width = 81
      end
      object LblScAmt: TcxLabel
        Left = 8
        Top = 211
        AutoSize = False
        Caption = #24448#26469#20313#39069#65306
        Transparent = True
        Height = 16
        Width = 57
      end
      object EdtScAmt: TcxDBTextEdit
        Left = 69
        Top = 209
        DataBinding.DataField = 'ScAmt'
        DataBinding.DataSource = MainDataSource
        ParentColor = True
        Properties.ReadOnly = True
        TabOrder = 25
        Width = 201
      end
      object dynLblFidId: TcxLabel
        Left = 8
        Top = 239
        AutoSize = False
        Caption = #20998#25903#26426#26500#65306
        Transparent = True
        Height = 16
        Width = 57
      end
      object LblSurAmt: TcxLabel
        Left = 8
        Top = 154
        AutoSize = False
        Caption = #39044' '#25910' '#27454#65306
        Transparent = True
        Height = 16
        Width = 57
      end
      object EdtSurAmt: TcxDBTextEdit
        Left = 69
        Top = 152
        DataBinding.DataField = 'SurAmt'
        DataBinding.DataSource = MainDataSource
        ParentColor = True
        Properties.ReadOnly = True
        TabOrder = 18
        Width = 201
      end
      object LblNoteType: TcxLabel
        Left = 281
        Top = 96
        AutoSize = False
        Caption = #40664#35748#21457#31080#31867#22411#65306
        Transparent = True
        Height = 16
        Width = 81
      end
      object dynEdtFilId: TcxDBLookupComboBox
        Tag = 5
        Left = 69
        Top = 237
        DataBinding.DataField = 'FilId'
        DataBinding.DataSource = MainDataSource
        Properties.ListColumns = <>
        TabOrder = 27
        Width = 200
      end
      object EdtNoteType: TcxDBLookupComboBox
        Tag = 17
        Left = 366
        Top = 94
        DataBinding.DataField = 'NoteType'
        DataBinding.DataSource = MainDataSource
        Properties.ListColumns = <>
        TabOrder = 11
        Width = 200
      end
      object dynEdtBalanceId: TcxDBLookupComboBox
        Tag = 15
        Left = 366
        Top = 124
        DataBinding.DataField = 'BalanceId'
        DataBinding.DataSource = MainDataSource
        Properties.ListColumns = <>
        TabOrder = 15
        Width = 200
      end
      inline fraEditShare1: TfraEditShare
        Left = 293
        Top = 205
        Width = 275
        Height = 30
        TabOrder = 24
        ExplicitLeft = 293
        ExplicitTop = 205
        ExplicitWidth = 275
        inherited Label6: TLabel
          Left = 15
          Width = 60
          Height = 12
          ExplicitLeft = 15
          ExplicitWidth = 60
          ExplicitHeight = 12
        end
        inherited BtnAdd: TButton
          Left = 249
          Top = 4
          OnClick = fraEditShare1BtnAddClick
          ExplicitLeft = 249
          ExplicitTop = 4
        end
        inherited EdtUsers: TcxTextEdit
          Left = 73
          ExplicitLeft = 73
          ExplicitWidth = 167
          ExplicitHeight = 20
          Width = 167
        end
        inherited Qry_Userinfo: TUniQuery
          Left = 184
          Top = 65535
        end
      end
      object edtRemark: TcxDBMemo
        Left = 69
        Top = 267
        DataBinding.DataField = 'Remark'
        DataBinding.DataSource = MainDataSource
        TabOrder = 31
        Height = 50
        Width = 497
      end
      object cxLabel9: TcxLabel
        Left = 308
        Top = 239
        AutoSize = False
        Caption = #26376#32467#26085#26399#65306
        Transparent = True
        Height = 16
        Width = 61
      end
      object edtBalancedays: TcxDBSpinEdit
        Left = 366
        Top = 237
        Hint = #20449#29992#22825#25968#20026'30'#24182#35774#32622#26376#32467#26085#26399#21363#20026#21551#29992#26376#32467
        DataBinding.DataField = 'balancedays'
        DataBinding.DataSource = MainDataSource
        Properties.AssignedValues.MinValue = True
        Properties.MaxValue = 31.000000000000000000
        TabOrder = 28
        Width = 167
      end
      object dynedtsursubid: TcxDBLookupComboBox
        Tag = 63
        Left = 366
        Top = 152
        DataBinding.DataField = 'sursubid'
        DataBinding.DataSource = MainDataSource
        Properties.ListColumns = <>
        TabOrder = 19
        Width = 200
      end
      object dynedtSubjectid: TcxDBLookupComboBox
        Tag = 63
        Left = 366
        Top = 181
        DataBinding.DataField = 'SubjectId'
        DataBinding.DataSource = MainDataSource
        Properties.ListColumns = <>
        TabOrder = 22
        Width = 200
      end
      object dynEdtCredit: TcxDBCurrencyEdit
        Left = 366
        Top = 65
        DataBinding.DataField = 'Credit'
        DataBinding.DataSource = MainDataSource
        Properties.DisplayFormat = '0.00'
        Properties.EditFormat = '0.00'
        Properties.MinValue = 0.010000000000000000
        TabOrder = 7
        Width = 200
      end
    end
    object TSGoods: TcxTabSheet
      Caption = #20379#38144#36135#21697
      ImageIndex = 2
      ExplicitWidth = 708
      object chkAutoOrderBill: TcxDBCheckBox
        Left = -1
        Top = 309
        Caption = #24320#37319#36141#35746#21333#65292#38144#21806#35746#21333#12289#25253#20215#21333#26102#33258#21160#24102#21040#21333#25454#20013
        DataBinding.DataField = 'autoorderbill'
        DataBinding.DataSource = MainDataSource
        Properties.NullStyle = nssUnchecked
        TabOrder = 1
        Transparent = True
      end
      object chkAutoBill: TcxDBCheckBox
        Left = -1
        Top = 326
        Caption = #24320#37319#36141#24320#21333#65292#38144#21806#24320#21333#26102#33258#21160#24102#21040#21333#25454#20013
        DataBinding.DataField = 'autobill'
        DataBinding.DataSource = MainDataSource
        Properties.NullStyle = nssUnchecked
        TabOrder = 2
        Transparent = True
      end
      object GrdTraderProduct: TcxGrid
        Left = 0
        Top = 0
        Width = 868
        Height = 302
        Hint = #28857#20987#31354#34892#25110#31354#30333#22788#26032#22686#35760#24405
        Align = alTop
        Anchors = [akLeft, akTop, akRight, akBottom]
        PopupMenu = popTraderProduct
        TabOrder = 0
        OnEnter = GrdTraderProductEnter
        ExplicitWidth = 708
        object viewProduct: TcxGridDBTableView
          OnMouseDown = viewProductMouseDown
          Navigator.Buttons.CustomButtons = <>
          DataController.DataSource = dsDS_TraderProduct
          DataController.Summary.DefaultGroupSummaryItems = <>
          DataController.Summary.FooterSummaryItems = <>
          DataController.Summary.SummaryGroups = <>
          OptionsBehavior.FocusCellOnTab = True
          OptionsBehavior.FocusFirstCellOnNewRecord = True
          OptionsBehavior.GoToNextCellOnEnter = True
          OptionsBehavior.FocusCellOnCycle = True
          OptionsData.Appending = True
          OptionsView.GroupByBox = False
          OptionsView.Indicator = True
          Styles.Background = MainDM.bslBackGroup
          Styles.ContentEven = MainDM.bsEven
          Styles.ContentOdd = MainDM.bsOdd
          Styles.Header = MainDM.bsTitle
          Styles.Selection = MainDM.bsSelect
          object _Code: TcxGridDBColumn
            Caption = #32534#30721
            DataBinding.FieldName = '_Code'
            Options.Focusing = False
            Width = 80
          end
          object ProductId: TcxGridDBColumn
            Caption = #36135#21697#21517#31216
            DataBinding.FieldName = 'ProductId'
            PropertiesClassName = 'TcxLookupComboBoxProperties'
            Properties.DropDownAutoSize = True
            Properties.KeyFieldNames = 'p_id'
            Properties.ListColumns = <
              item
                Caption = #36135#21697#32534#30721
                MinWidth = 100
                Width = 120
                FieldName = 'code'
              end
              item
                Caption = #21517#31216
                MinWidth = 100
                Width = 150
                FieldName = 'name'
              end
              item
                Caption = #35268#26684
                Fixed = True
                MinWidth = 100
                Width = 150
                FieldName = 'spec'
              end>
            Properties.ListSource = DS_Product
            Properties.OnCloseUp = ProductIdPropertiesCloseUp
            MinWidth = 100
            Width = 100
          end
          object _Spec: TcxGridDBColumn
            Caption = #35268#26684
            DataBinding.FieldName = '_Spec'
            Options.Focusing = False
          end
          object UnitId: TcxGridDBColumn
            Caption = #19994#21153#21333#20301
            DataBinding.FieldName = 'unitname'
            PropertiesClassName = 'TcxComboBoxProperties'
            Properties.ImmediatePost = True
            Properties.OnEditValueChanged = UnitIdPropertiesEditValueChanged
            OnGetPropertiesForEdit = UnitIdGetPropertiesForEdit
            Width = 60
          end
          object Quantity: TcxGridDBColumn
            Caption = #25968#37327
            DataBinding.FieldName = 'Quantity'
            Width = 50
          end
          object Price: TcxGridDBColumn
            Caption = #25253#20215
            DataBinding.FieldName = 'Price'
            Width = 60
          end
          object AssQty: TcxGridDBColumn
            Caption = #36741#21161#25968#37327
            DataBinding.FieldName = 'AssQty'
            Width = 55
          end
          object _minpurqty: TcxGridDBColumn
            Caption = #26368#23567#37319#36141#37327
            DataBinding.FieldName = '_minpurqty'
            Width = 65
          end
          object _puraddqty: TcxGridDBColumn
            Caption = #37319#36141#25209#37327#22686#37327
            DataBinding.FieldName = '_puraddqty'
            Width = 75
          end
          object _Advancedays: TcxGridDBColumn
            Caption = #25552#21069#26399
            DataBinding.FieldName = '_Advancedays'
            Width = 45
          end
          object coltpcode: TcxGridDBColumn
            Caption = #23545#26041#36135#21697#32534#30721
            DataBinding.FieldName = 'tpcode'
            Width = 80
          end
          object coltpname: TcxGridDBColumn
            Caption = #23545#26041#36135#21697#21517#31216
            DataBinding.FieldName = 'tpname'
            Width = 100
          end
          object coltpspec: TcxGridDBColumn
            Caption = #23545#26041#36135#21697#35268#26684
            DataBinding.FieldName = 'tpspec'
            Width = 100
          end
        end
        object GrdTraderProductLevel1: TcxGridLevel
          GridView = viewProduct
        end
      end
      object edtTPName: TcxComboBox
        Left = 501
        Top = 307
        Properties.DropDownListStyle = lsEditFixedList
        Properties.ImmediatePost = True
        Properties.Items.Strings = (
          #33258#23450#20041'1'
          #33258#23450#20041'2'
          #33258#23450#20041'3'
          #33258#23450#20041'4'
          #33258#23450#20041'5'
          #33258#23450#20041'6'
          #33258#23450#20041'7'
          #33258#23450#20041'8'
          #33258#23450#20041'9'
          #33258#23450#20041'10')
        Properties.OnValidate = edtTPNamePropertiesValidate
        TabOrder = 3
        Width = 121
      end
      object cxLabel1: TcxLabel
        Left = 373
        Top = 308
        Caption = #36135#21697#23545#26041#21517#31216#20445#23384#23383#27573
      end
      object edtBillUpdate: TcxComboBox
        Left = 501
        Top = 327
        Properties.DropDownListStyle = lsEditFixedList
        Properties.ImmediatePost = True
        Properties.Items.Strings = (
          #19981#26356#26032)
        Properties.OnValidate = edtBillUpdatePropertiesValidate
        TabOrder = 5
        Text = #19981#26356#26032
        Width = 121
      end
      object cxLabel3: TcxLabel
        Left = 373
        Top = 328
        Caption = #24320#21333#26356#26032#20379#38144#36135#21697
      end
    end
    object tsAddr: TcxTabSheet
      Caption = #36865#36135#22320#22336
      ImageIndex = 3
      ExplicitWidth = 708
      object GrdTraderAddr: TcxGrid
        Left = 0
        Top = 0
        Width = 868
        Height = 350
        Hint = #40736#26631#21491#38190#35774#32622#40664#35748#22320#22336#65307#28857#20987#31354#34892#25110#31354#30333#22788#26032#22686#35760#24405
        Align = alClient
        PopupMenu = popTraderAddr
        TabOrder = 0
        OnEnter = GrdTraderProductEnter
        ExplicitWidth = 708
        object viewAddr: TcxGridDBTableView
          OnMouseDown = viewAddrMouseDown
          Navigator.Buttons.CustomButtons = <>
          DataController.DataModeController.GridMode = True
          DataController.DataModeController.SmartRefresh = True
          DataController.DataSource = dsDS_TraderAddr
          DataController.Summary.DefaultGroupSummaryItems = <>
          DataController.Summary.FooterSummaryItems = <>
          DataController.Summary.SummaryGroups = <>
          OptionsBehavior.FocusCellOnTab = True
          OptionsBehavior.FocusFirstCellOnNewRecord = True
          OptionsBehavior.GoToNextCellOnEnter = True
          OptionsBehavior.FocusCellOnCycle = True
          OptionsData.Appending = True
          OptionsView.ColumnAutoWidth = True
          OptionsView.GroupByBox = False
          OptionsView.Indicator = True
          Styles.Background = MainDM.bslBackGroup
          Styles.ContentEven = MainDM.bsEven
          Styles.ContentOdd = MainDM.bsOdd
          Styles.Header = MainDM.bsTitle
          Styles.Selection = MainDM.bsSelect
          object AddrNo: TcxGridDBColumn
            Caption = #22320#22336#32534#21495
            DataBinding.FieldName = 'addrno'
            Width = 80
          end
          object Addr: TcxGridDBColumn
            Caption = #21517#31216
            DataBinding.FieldName = 'Addr'
            Width = 320
          end
          object contacter: TcxGridDBColumn
            Caption = #32852#31995#20154
            DataBinding.FieldName = 'contacter'
            Width = 80
          end
          object tel: TcxGridDBColumn
            Caption = #30005#35805
            DataBinding.FieldName = 'tel'
            Width = 80
          end
        end
        object GrdTraderAddrLevel1: TcxGridLevel
          GridView = viewAddr
        end
      end
    end
    object tsCustom: TcxTabSheet
      Caption = #33258#23450#20041#20449#24687
      ImageIndex = 5
      ExplicitWidth = 708
    end
    object tsPic: TcxTabSheet
      Caption = #22270#29255
      ImageIndex = 4
      ExplicitWidth = 708
      object cxLabel19: TcxLabel
        Left = 505
        Top = 20
        AutoSize = False
        Caption = #24314#35758#65306#20026#20102#36991#20813#24433#21709#31995#32479#24615#33021#65292#35831#19981#35201#20351#29992#36739#22823' (>=2M) '#30340#22270#29255
        Properties.WordWrap = True
        Transparent = True
        Height = 105
        Width = 113
      end
      object btnImport: TcxButton
        Left = 505
        Top = 143
        Width = 113
        Height = 25
        Caption = #23548#20837#22270#29255
        TabOrder = 4
        OnClick = btnImportClick
      end
      object btnExport: TcxButton
        Left = 505
        Top = 232
        Width = 113
        Height = 25
        Caption = #23548#20986
        TabOrder = 6
        OnClick = btnExportClick
      end
      object btnDelete: TcxButton
        Left = 505
        Top = 188
        Width = 113
        Height = 25
        Caption = #21024#38500
        TabOrder = 5
        OnClick = btnDeleteClick
      end
      object lvProPic: TcxListView
        Left = 311
        Top = 0
        Width = 170
        Height = 350
        Align = alLeft
        Columns = <>
        LargeImages = MainDM.imgLstBig
        SmallImages = MainDM.imgList
        TabOrder = 1
        OnClick = lvProPicClick
        OnDblClick = lvProPicDblClick
      end
      object btnDefPic: TcxButton
        Left = 505
        Top = 276
        Width = 113
        Height = 25
        Caption = #40664#35748#22270#29255
        TabOrder = 7
        OnClick = btnDefPicClick
      end
      object btnOtherFile: TcxButton
        Tag = 1
        Left = 505
        Top = 99
        Width = 113
        Height = 25
        Caption = #23548#20837#20854#20182#25991#20214
        TabOrder = 3
        OnClick = btnImportClick
      end
      object imgTrader: TcxDBImage
        Left = 0
        Top = 0
        Align = alLeft
        DataBinding.DataField = 'pic'
        DataBinding.DataSource = dsTraderPic
        TabOrder = 0
        OnDblClick = imgTraderDblClick
        Height = 350
        Width = 311
      end
    end
  end
  object cxDBCheckBox4: TcxDBCheckBox [6]
    Left = 496
    Top = 393
    Caption = #26242#20572#20351#29992
    DataBinding.DataField = 'Pause'
    DataBinding.DataSource = MainDataSource
    ParentBackground = False
    Properties.NullStyle = nssUnchecked
    TabOrder = 3
  end
  inherited btnPrint: TcxButton
    Left = 670
    Top = 4
    ExplicitLeft = 670
    ExplicitTop = 4
  end
  inherited edtPrint: TcxLookupComboBox
    Left = 767
    Top = 6
    ExplicitLeft = 607
    ExplicitTop = 6
  end
  inherited MainDataSource: TDataSource
    DataSet = MainDataSet
    Left = 26
    Top = 79
  end
  object Qry_TraderProduct: TUniQuery
    Connection = MainDM.UniConn
    SQL.Strings = (
      'select  t.*,  u.unitname'
      '  from td_TraderProduct t'
      '  inner join td_unitprice u on t.unitid=u.unitid')
    CachedUpdates = True
    Options.PrepareUpdateSQL = True
    Options.SetFieldsReadOnly = False
    Options.RequiredFields = False
    Options.QueryRecCount = True
    Options.AutoPrepare = True
    OnNewRecord = Qry_TraderProductNewRecord
    Left = 208
    Top = 79
    object Qry_TraderProductTraderId: TIntegerField
      FieldName = 'TraderId'
    end
    object Qry_TraderProductProductId: TIntegerField
      FieldName = 'ProductId'
    end
    object Qry_TraderProduct_Code: TStringField
      FieldKind = fkLookup
      FieldName = '_Code'
      LookupDataSet = Qry_Product
      LookupKeyFields = 'p_id'
      LookupResultField = 'code'
      KeyFields = 'ProductId'
      Lookup = True
    end
    object Qry_TraderProductName: TWideStringField
      FieldKind = fkLookup
      FieldName = '_Name'
      LookupDataSet = Qry_Product
      LookupKeyFields = 'p_id'
      LookupResultField = 'name'
      KeyFields = 'ProductId'
      Lookup = True
    end
    object Qry_TraderProduct_Spec: TWideStringField
      FieldKind = fkLookup
      FieldName = '_Spec'
      LookupDataSet = Qry_Product
      LookupKeyFields = 'p_id'
      LookupResultField = 'spec'
      KeyFields = 'ProductId'
      Lookup = True
    end
    object Qry_TraderProductUnitId: TIntegerField
      FieldName = 'UnitId'
    end
    object Qry_TraderProductQuantity: TFloatField
      FieldName = 'Quantity'
    end
    object Qry_TraderProductAssQty: TFloatField
      FieldName = 'AssQty'
    end
    object Qry_TraderProduct_minpurqty: TIntegerField
      FieldKind = fkLookup
      FieldName = '_minpurqty'
      LookupDataSet = Qry_Product
      LookupKeyFields = 'p_id'
      LookupResultField = 'minpurqty'
      KeyFields = 'ProductId'
      Lookup = True
    end
    object Qry_TraderProduct_puraddqty: TIntegerField
      FieldKind = fkLookup
      FieldName = '_puraddqty'
      LookupDataSet = Qry_Product
      LookupKeyFields = 'p_id'
      LookupResultField = 'puraddqty'
      KeyFields = 'ProductId'
      Lookup = True
    end
    object Qry_TraderProduct_Advancedays: TIntegerField
      FieldKind = fkLookup
      FieldName = '_Advancedays'
      LookupDataSet = Qry_Product
      LookupKeyFields = 'p_id'
      LookupResultField = 'Advancedays'
      KeyFields = 'ProductId'
      Lookup = True
    end
    object Qry_TraderProductPrice: TFloatField
      FieldName = 'Price'
    end
    object Qry_TraderProductunitname: TWideStringField
      FieldName = 'unitname'
      Size = 40
    end
    object Qry_TraderProducttpcode: TStringField
      FieldName = 'tpcode'
      Size = 40
    end
    object Qry_TraderProducttpname: TStringField
      FieldName = 'tpname'
      Size = 60
    end
    object Qry_TraderProducttpspec: TStringField
      FieldName = 'tpspec'
      Size = 100
    end
  end
  object dsDS_TraderProduct: TDataSource
    DataSet = Qry_TraderProduct
    Left = 208
    Top = 127
  end
  object Qry_Area: TUniQuery
    Connection = MainDM.UniConn
    SQL.Strings = (
      'Select * from td_Area  ')
    CachedUpdates = True
    Options.SetFieldsReadOnly = False
    Options.RequiredFields = False
    Options.QueryRecCount = True
    Left = 80
    Top = 81
  end
  object DS_Area: TDataSource
    DataSet = Qry_Area
    Left = 80
    Top = 129
  end
  object Qry_TraderType: TUniQuery
    Connection = MainDM.UniConn
    SQL.Strings = (
      'select * from td_TraderType')
    CachedUpdates = True
    Options.SetFieldsReadOnly = False
    Options.RequiredFields = False
    Options.QueryRecCount = True
    Left = 128
    Top = 81
  end
  object DS_TraderType: TDataSource
    DataSet = Qry_TraderType
    Left = 128
    Top = 129
  end
  object Qry_TraderAddr: TUniQuery
    Connection = MainDM.UniConn
    SQL.Strings = (
      'select * from td_TraderAddr')
    CachedUpdates = True
    Options.PrepareUpdateSQL = True
    Options.SetFieldsReadOnly = False
    Options.RequiredFields = False
    Options.QueryRecCount = True
    Options.AutoPrepare = True
    BeforeInsert = Qry_TraderAddrBeforeInsert
    OnNewRecord = Qry_TraderAddrNewRecord
    Left = 273
    Top = 79
    object Qry_TraderAddrtraderid: TIntegerField
      FieldName = 'traderid'
    end
    object Qry_TraderAddrAddr: TWideStringField
      FieldName = 'Addr'
      Size = 100
    end
    object Qry_TraderAddraddrno: TStringField
      FieldName = 'addrno'
      Size = 10
    end
    object Qry_TraderAddrcontacter: TWideStringField
      FieldName = 'contacter'
      Size = 50
    end
    object Qry_TraderAddrtel: TWideStringField
      FieldName = 'tel'
      Size = 50
    end
  end
  object dsDS_TraderAddr: TDataSource
    DataSet = Qry_TraderAddr
    Left = 273
    Top = 127
  end
  object Qry_Product: TUniQuery
    Connection = MainDM.UniConn
    SQL.Strings = (
      'select  p_id, code,  name,  spec,'
      
        '           minpurqty, puraddqty, Advancedays  from td_product or' +
        'der by p_id')
    CachedUpdates = True
    Options.SetFieldsReadOnly = False
    Options.RequiredFields = False
    Options.QueryRecCount = True
    Left = 129
    Top = 210
    object Qry_Productp_id: TIntegerField
      FieldName = 'p_id'
    end
    object Qry_Productcode: TStringField
      FieldName = 'code'
      Size = 30
    end
    object Qry_Productname: TWideStringField
      FieldName = 'name'
      Size = 60
    end
    object Qry_Productspec: TWideStringField
      FieldName = 'spec'
      Size = 60
    end
    object Qry_Productminpurqty: TFloatField
      FieldName = 'minpurqty'
    end
    object Qry_Productpuraddqty: TFloatField
      FieldName = 'puraddqty'
    end
    object Qry_ProductAdvancedays: TIntegerField
      FieldName = 'Advancedays'
    end
  end
  object DS_Product: TDataSource
    DataSet = Qry_Product
    Left = 129
    Top = 258
  end
  object popTraderProduct: TPopupMenu
    Left = 208
    Top = 210
    object addProduct: TMenuItem
      Caption = #26032#22686#26126#32454
      OnClick = addProductClick
    end
    object deleteProduct: TMenuItem
      Caption = #21024#38500#26126#32454
      OnClick = deleteProductClick
    end
    object N1: TMenuItem
      Caption = '-'
    end
    object muExportProduct: TMenuItem
      Caption = #23548#20986#20379#38144#36135#21697
      OnClick = muExportProductClick
    end
  end
  object popTraderAddr: TPopupMenu
    Left = 297
    Top = 210
    object mitemSetDefault: TMenuItem
      Caption = #35774#20026#40664#35748#22320#22336#32852#31995#20154
      OnClick = SetDefaultClick
    end
    object Addddr: TMenuItem
      Caption = #26032#22686#26126#32454
      OnClick = AddddrClick
    end
    object deleteAddr: TMenuItem
      Caption = #21024#38500#26126#32454
      OnClick = deleteAddrClick
    end
  end
  object MainDataSet: TUniQuery
    SQLInsert.Strings = (
      'Insert into TD_TRADER(TraderId,'
      'Code,'
      'Name,'
      'FullName,'
      'UsedName,'
      'FilId,'
      'TraderTypeId,'
      'Lev,'
      'AreaId,'
      'EmpId,'
      'DeptId,'
      'sursubid,'
      'SubjectId,'
      'transportType,'
      'Speed,'
      'LegalRep,'
      'Contacter,'
      'mobile,'
      'officeTel,'
      'otherTel,'
      'Fax,'
      'Zip,'
      'Address,'
      'targetaddr,'
      'EMail,'
      'WebAddr,'
      'Client,'
      'provider,'
      'Bank,'
      'BankAccNo,'
      'TaxNo,'
      'CreditDay,'
      'Credit,'
      'SurAmt,'
      'BalAmt,'
      'ScAmt,'
      'custom1,'
      'custom2,'
      'custom3,'
      'custom4,'
      'custom5,'
      'custom6,'
      'custom7,'
      'custom8,'
      'custom9,'
      'custom10,'
      'Remark,'
      'Pause,'
      'IsCash,'
      'userright,'
      'NoteType,'
      'balanceId,'
      'doubleIdf,'
      'autoorderbill,'
      'TaxRate,'
      'autobill,'
      'Create_by,'
      'Create_time,'
      'Update_by,'
      'Update_time,'
      'custom11,'
      'custom12,'
      'custom13,'
      'custom14,'
      'custom15,'
      'balancedays,'
      'memberintegral,'
      'share,'
      'thirdtrade'
      ')'
      'Values'
      '(:TraderId,'
      ':Code,'
      ':Name,'
      ':FullName,'
      ':UsedName,'
      ':FilId,'
      ':TraderTypeId,'
      ':Lev,'
      ':AreaId,'
      ':EmpId,'
      ':DeptId,'
      ':sursubid,'
      ':SubjectId,'
      ':transportType,'
      ':Speed,'
      ':LegalRep,'
      ':Contacter,'
      ':mobile,'
      ':officeTel,'
      ':otherTel,'
      ':Fax,'
      ':Zip,'
      ':Address,'
      ':targetaddr,'
      ':EMail,'
      ':WebAddr,'
      ':Client,'
      ':provider,'
      ':Bank,'
      ':BankAccNo,'
      ':TaxNo,'
      ':CreditDay,'
      ':Credit,'
      ':SurAmt,'
      ':BalAmt,'
      ':ScAmt,'
      ':custom1,'
      ':custom2,'
      ':custom3,'
      ':custom4,'
      ':custom5,'
      ':custom6,'
      ':custom7,'
      ':custom8,'
      ':custom9,'
      ':custom10,'
      ':Remark,'
      ':Pause,'
      ':IsCash,'
      ':userright,'
      ':NoteType,'
      ':balanceId,'
      ':doubleIdf,'
      ':autoorderbill,'
      ':TaxRate,'
      ':autobill,'
      ':Create_by,'
      ':Create_time,'
      ':Update_by,'
      ':Update_time,'
      ':custom11,'
      ':custom12,'
      ':custom13,'
      ':custom14,'
      ':custom15,'
      ':balancedays,'
      ':memberintegral,'
      ':share,'
      ':thirdtrade'
      ')')
    SQLDelete.Strings = (
      'Delete from TD_TRADER where TraderId=:OLD_TraderId')
    SQLUpdate.Strings = (
      'Update TD_TRADER set '
      'TraderId=:TraderId,'
      'Code=:Code,'
      'Name=:Name,'
      'FullName=:FullName,'
      'UsedName=:UsedName,'
      'FilId=:FilId,'
      'TraderTypeId=:TraderTypeId,'
      'Lev=:Lev,'
      'AreaId=:AreaId,'
      'EmpId=:EmpId,'
      'DeptId=:DeptId,'
      'sursubid=:sursubid,'
      'SubjectId=:SubjectId,'
      'transportType=:transportType,'
      'Speed=:Speed,'
      'LegalRep=:LegalRep,'
      'Contacter=:Contacter,'
      'mobile=:mobile,'
      'officeTel=:officeTel,'
      'otherTel=:otherTel,'
      'Fax=:Fax,'
      'Zip=:Zip,'
      'Address=:Address,'
      'targetaddr=:targetaddr,'
      'EMail=:EMail,'
      'WebAddr=:WebAddr,'
      'Client=:Client,'
      'provider=:provider,'
      'Bank=:Bank,'
      'BankAccNo=:BankAccNo,'
      'TaxNo=:TaxNo,'
      'CreditDay=:CreditDay,'
      'Credit=:Credit,'
      'SurAmt=:SurAmt,'
      'BalAmt=:BalAmt,'
      'ScAmt=:ScAmt,'
      'custom1=:custom1,'
      'custom2=:custom2,'
      'custom3=:custom3,'
      'custom4=:custom4,'
      'custom5=:custom5,'
      'custom6=:custom6,'
      'custom7=:custom7,'
      'custom8=:custom8,'
      'custom9=:custom9,'
      'custom10=:custom10,'
      'Remark=:Remark,'
      'Pause=:Pause,'
      'IsCash=:IsCash,'
      'userright=:userright,'
      'NoteType=:NoteType,'
      'balanceId=:balanceId,'
      'doubleIdf=:doubleIdf,'
      'autoorderbill=:autoorderbill,'
      'TaxRate=:TaxRate,'
      'autobill=:autobill,'
      'Create_by=:Create_by,'
      'Create_time=:Create_time,'
      'Update_by=:Update_by,'
      'Update_time=:Update_time,'
      'custom11=:custom11,'
      'custom12=:custom12,'
      'custom13=:custom13,'
      'custom14=:custom14,'
      'custom15=:custom15,'
      'balancedays=:balancedays,'
      'memberintegral=:memberintegral,'
      'share=:share,'
      'thirdtrade=:thirdtrade'
      ' where TraderId=:OLD_TraderId')
    Connection = MainDM.UniConn
    SQL.Strings = (
      'select  *  from td_trader')
    CachedUpdates = True
    Options.PrepareUpdateSQL = True
    Options.SetFieldsReadOnly = False
    Options.RequiredFields = False
    Options.QueryRecCount = True
    Options.AutoPrepare = True
    Left = 25
    Top = 154
    object MainDataSetTraderId: TIntegerField
      FieldName = 'TraderId'
    end
    object MainDataSetCode: TWideStringField
      FieldName = 'Code'
      Size = 50
    end
    object MainDataSetName: TWideStringField
      FieldName = 'Name'
      Size = 80
    end
    object MainDataSetFullName: TWideStringField
      FieldName = 'FullName'
      Size = 80
    end
    object MainDataSetFilId: TIntegerField
      FieldName = 'FilId'
    end
    object MainDataSetTraderTypeId: TIntegerField
      FieldName = 'TraderTypeId'
    end
    object MainDataSetLev: TIntegerField
      FieldName = 'Lev'
    end
    object MainDataSetAreaId: TIntegerField
      FieldName = 'AreaId'
    end
    object MainDataSetEmpId: TIntegerField
      FieldName = 'EmpId'
    end
    object MainDataSetDeptId: TIntegerField
      FieldName = 'DeptId'
    end
    object MainDataSetSubjectId: TIntegerField
      FieldName = 'SubjectId'
    end
    object MainDataSettransportType: TIntegerField
      FieldName = 'transportType'
    end
    object MainDataSetSpeed: TWideStringField
      FieldName = 'Speed'
      Size = 50
    end
    object MainDataSetLegalRep: TWideStringField
      FieldName = 'LegalRep'
      Size = 50
    end
    object MainDataSetContacter: TWideStringField
      FieldName = 'Contacter'
      Size = 80
    end
    object MainDataSetmobile: TWideStringField
      FieldName = 'mobile'
      Size = 50
    end
    object MainDataSetofficeTel: TWideStringField
      FieldName = 'officeTel'
      Size = 50
    end
    object MainDataSetotherTel: TWideStringField
      FieldName = 'otherTel'
      Size = 50
    end
    object MainDataSetFax: TWideStringField
      FieldName = 'Fax'
      Size = 50
    end
    object MainDataSetZip: TWideStringField
      FieldName = 'Zip'
      Size = 50
    end
    object MainDataSetAddress: TWideStringField
      FieldName = 'Address'
      Size = 200
    end
    object MainDataSettargetaddr: TWideStringField
      FieldName = 'targetaddr'
      Size = 200
    end
    object MainDataSetEMail: TWideStringField
      FieldName = 'EMail'
      FixedChar = True
      Size = 100
    end
    object MainDataSetWebAddr: TWideStringField
      FieldName = 'WebAddr'
      FixedChar = True
      Size = 200
    end
    object MainDataSetClient: TBooleanField
      FieldName = 'Client'
    end
    object MainDataSetprovider: TBooleanField
      FieldName = 'provider'
    end
    object MainDataSetBank: TWideStringField
      FieldName = 'Bank'
      Size = 80
    end
    object MainDataSetBankAccNo: TWideStringField
      FieldName = 'BankAccNo'
      Size = 80
    end
    object MainDataSetTaxNo: TWideStringField
      FieldName = 'TaxNo'
      Size = 80
    end
    object MainDataSetCreditDay: TIntegerField
      FieldName = 'CreditDay'
    end
    object MainDataSetCredit: TFloatField
      FieldName = 'Credit'
    end
    object MainDataSetSurAmt: TFloatField
      FieldName = 'SurAmt'
    end
    object MainDataSetBalAmt: TFloatField
      FieldName = 'BalAmt'
    end
    object MainDataSetScAmt: TFloatField
      FieldName = 'ScAmt'
    end
    object MainDataSetcustom1: TWideStringField
      FieldName = 'custom1'
      Size = 100
    end
    object MainDataSetcustom2: TWideStringField
      FieldName = 'custom2'
      Size = 100
    end
    object MainDataSetcustom3: TWideStringField
      FieldName = 'custom3'
      Size = 100
    end
    object MainDataSetcustom4: TWideStringField
      FieldName = 'custom4'
      Size = 100
    end
    object MainDataSetcustom5: TWideStringField
      FieldName = 'custom5'
      Size = 100
    end
    object MainDataSetcustom6: TWideStringField
      FieldName = 'custom6'
      Size = 100
    end
    object MainDataSetcustom7: TWideStringField
      FieldName = 'custom7'
      Size = 100
    end
    object MainDataSetcustom8: TWideStringField
      FieldName = 'custom8'
      Size = 100
    end
    object MainDataSetcustom9: TWideStringField
      FieldName = 'custom9'
      Size = 100
    end
    object MainDataSetcustom10: TWideStringField
      FieldName = 'custom10'
      Size = 100
    end
    object MainDataSetRemark: TWideStringField
      FieldName = 'Remark'
      Size = 500
    end
    object MainDataSetPause: TBooleanField
      FieldName = 'Pause'
    end
    object MainDataSetIsCash: TBooleanField
      FieldName = 'IsCash'
    end
    object MainDataSetuserright: TWideStringField
      FieldName = 'userright'
      Size = 50
    end
    object MainDataSetNoteType: TIntegerField
      FieldName = 'NoteType'
    end
    object MainDataSetbalanceId: TIntegerField
      FieldName = 'balanceId'
    end
    object MainDataSetdoubleIdf: TBooleanField
      FieldName = 'doubleIdf'
    end
    object MainDataSetautoorderbill: TBooleanField
      FieldName = 'autoorderbill'
    end
    object MainDataSetTaxRate: TFloatField
      FieldName = 'TaxRate'
    end
    object MainDataSetautobill: TBooleanField
      FieldName = 'autobill'
    end
    object MainDataSetCreate_by: TIntegerField
      FieldName = 'Create_by'
    end
    object MainDataSetCreate_time: TDateTimeField
      FieldName = 'Create_time'
    end
    object MainDataSetUpdate_by: TIntegerField
      FieldName = 'Update_by'
    end
    object MainDataSetUpdate_time: TDateTimeField
      FieldName = 'Update_time'
    end
    object MainDataSetcustom11: TFloatField
      FieldName = 'custom11'
    end
    object MainDataSetcustom12: TFloatField
      FieldName = 'custom12'
    end
    object MainDataSetcustom13: TFloatField
      FieldName = 'custom13'
    end
    object MainDataSetcustom14: TFloatField
      FieldName = 'custom14'
    end
    object MainDataSetcustom15: TFloatField
      FieldName = 'custom15'
    end
    object MainDataSetbalancedays: TIntegerField
      FieldName = 'balancedays'
    end
    object MainDataSetsursubid: TIntegerField
      FieldName = 'sursubid'
    end
    object MainDataSetmemberintegral: TIntegerField
      FieldName = 'memberintegral'
    end
    object MainDataSetShare: TBooleanField
      FieldName = 'Share'
    end
    object MainDataSetthirdtrade: TBooleanField
      FieldName = 'thirdtrade'
    end
    object MainDataSetareaname: TWideStringField
      FieldName = 'areaname'
      Size = 80
    end
    object MainDataSetfi_filnm: TStringField
      FieldName = 'fi_filnm'
      Size = 80
    end
    object MainDataSetusedname: TWideStringField
      FieldName = 'usedname'
      Size = 200
    end
    object MainDataSetem_name: TWideStringField
      FieldName = 'em_name'
      Size = 80
    end
    object MainDataSeted_deptnm: TWideStringField
      FieldName = 'ed_deptnm'
      Size = 80
    end
  end
  object Qry_UnitPrice: TUniQuery
    Connection = MainDM.UniConn
    SQL.Strings = (
      'select * from td_unitprice where 1 = 2')
    CachedUpdates = True
    Options.SetFieldsReadOnly = False
    Options.RequiredFields = False
    Options.QueryRecCount = True
    Left = 393
    Top = 81
  end
  object Ds_UnitPrice: TDataSource
    DataSet = Qry_UnitPrice
    Left = 396
    Top = 127
  end
  object qryTraderPic: TUniQuery
    Connection = MainDM.UniConn
    SQL.Strings = (
      'select * from td_traderpic')
    CachedUpdates = True
    Options.PrepareUpdateSQL = True
    Options.SetFieldsReadOnly = False
    Options.RequiredFields = False
    Options.QueryRecCount = True
    Options.AutoPrepare = True
    OnNewRecord = qryTraderPicNewRecord
    Left = 368
    Top = 260
  end
  object dsTraderPic: TDataSource
    DataSet = qryTraderPic
    Left = 364
    Top = 316
  end
  object SavePicDlg: TSaveDialog
    Filter = #22270#29255#25991#20214'(*.bmp)|*.bmp|'#22270#29255#25991#20214'(*.jpg)|*.jpg|'#20854#20182#25991#20214'(*.*)|*.*'
    Left = 531
    Top = 275
  end
  object OpenPicDlg: TOpenPictureDialog
    Filter = 
      'All (*.gif;*.png;*.jpg;*.jpeg;*.bmp;*.ico;*.emf;*.wmf)|*.gif;*.p' +
      'ng;*.jpg;*.jpeg;*.bmp;*.ico;*.emf;*.wmf|CompuServe GIF Image (*.' +
      'gif)|*.gif|PNG graphics from DevExpress (*.png)|*.png|JPEG Image' +
      ' File (*.jpg)|*.jpg|JPEG Image File (*.jpeg)|*.jpeg|Bitmaps (*.b' +
      'mp)|*.bmp|Icons (*.ico)|*.ico|Enhanced Metafiles (*.emf)|*.emf|M' +
      'etafiles (*.wmf)|*.wmf|ALL FILE|*.*'
    Left = 455
    Top = 156
  end
end
